home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 21
/
Cream of the Crop 21 (Terry Blount) (October 1996).iso
/
program
/
badcodes.zip
/
POSTCALL.WCX
(
.txt
)
< prev
next >
Wrap
Wildcat! WCX
|
1996-08-15
|
958b
|
111 lines
'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx 958 bytes 08/30/122 02:17:04am
'! Code Segment Size :907 bytes
'! Data Segment Size :4467 bytes
'! String Segment Size:51 bytes
'! Compiled with WCC version 4.11
Declare Function Func176 As Integer
Declare Function Func421 As Integer
Declare Function Func664 As Integer
Dim s4463 As String
s4463 = User.Alias
If InStr(s4463, "@") > 0 Then
Func176
End If
83 s4463 = User.From
If InStr(s4463, "@") > 0 Then
Func421
End If
125 s4463 = User.ComputerType
If InStr(s4463, "@") > 0 Then
Func664
End If
167 End
'! Called 1 time
Function Func176 As Integer
Dim s65516 As String
Dim s65520 As String
Dim s65524 As String
Dim i65528 As Integer
Dim s65530 As String
s65516 = User.Alias
Open ProgPath + "BADCODES.LST" For Input As 1
225 Do While Not EOF(1)
Input #1, s65530
Do
245 i65528 = 0
i65528 = InStr(s65516, s65530)
If i65528 = 0 Then
User.Alias = s65516
GoTo 386
Else
308 s65524 = Left(s65516, i65528 - 1)
s65520 = Right(s65516, Len(s65516) - Len(s65530) + i65528 - 1)
s65516 = s65524 + s65520
End If
380 Loop
386 Loop
392 Close 1
End Function
'! Called 1 time
Function Func421 As Integer
Dim s65516 As String
Dim s65520 As String
Dim s65524 As String
Dim i65528 As Integer
Dim s65530 As String
s65516 = User.From
Open ProgPath + "BADCODES.LST" For Input As 1
469 Do While Not EOF(1)
Input #1, s65530
Do
489 i65528 = 0
i65528 = InStr(s65516, s65530)
If i65528 = 0 Then
User.From = s65516
GoTo 629
Else
551 s65524 = Left(s65516, i65528 - 1)
s65520 = Right(s65516, Len(s65516) - Len(s65530) + i65528 - 1)
s65516 = s65524 + s65520
End If
623 Loop
629 Loop
635 Close 1
End Function
'! Called 1 time
Function Func664 As Integer
Dim s65516 As String
Dim s65520 As String
Dim s65524 As String
Dim i65528 As Integer
Dim s65530 As String
s65516 = User.ComputerType
Open ProgPath + "BADCODES.LST" For Input As 1
712 Do While Not EOF(1)
Input #1, s65530
Do
732 i65528 = 0
i65528 = InStr(s65516, s65530)
If i65528 = 0 Then
User.ComputerType = s65516
GoTo 872
Else
794 s65524 = Left(s65516, i65528 - 1)
s65520 = Right(s65516, Len(s65516) - Len(s65530) + i65528 - 1)
s65516 = s65524 + s65520
End If
866 Loop
872 Loop
878 Close 1
End Function